|
| <%= rtit %> |
<%= weburl %> |
<%
select case cid
case ""
rs.open "select * from news where cid<2 order by adddate desc,id desc",conn,1,1
case else
rs.open "select * from news where cid="&cid&" order by adddate desc,id desc",conn,1,1
end select
if not rs.eof then
dim pc,page,ps
rs.pagesize=24
pc=rs.pagecount
page = clng(request("page"))
if page<=0 then page=1
if request.querystring("page")="" then
page=1
end if
rs.absolutepage=page
for ps=1 to rs.pagesize
if rs.Eof then
exit for
end if
%>
| " target="_blank" title="<%=rs("name")%>"><%=rs("name")%> |
<%=csj(rs("adddate"))%> |
<%
rs.movenext
next
end if
%>
<%rs.close%> |